home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / FORTRAN Goodies / MenuTrix.txt < prev    next >
Encoding:
Text File  |  1991-01-15  |  772 b   |  24 lines  |  [TEXT/MPS ]
  1. C    Here are some tricks for customizing your own menu items.
  2. C    Use a run script that generates an application. (i.e. run menutricks)
  3. C    Reference: Inside Macintosh, Volume 1, Chapter 11; by Addison Wesley
  4. C
  5. C    Example provided for owners of Language Systems FORTRAN
  6. C    © 1990 Language Systems Corp.
  7.  
  8.     type *
  9.     call addmenuitem('NewMenu','Command Key Example/H',SomeSub)
  10.     call addmenuitem('NewMenu','!•Permanent Check',SomeSub)
  11.     call addmenuitem('NewMenu','<BBold Item',Somesub)
  12.     call addmenuitem('NewMenu','<IItalic Item',Somesub)
  13.     call addmenuitem('NewMenu','<UUnderline Item',Somesub)
  14.     call addmenuitem('NewMenu','<OOutline Item',Somesub)
  15.     call addmenuitem('NewMenu','<SShadow Item',Somesub)
  16.     end
  17.     
  18.     Subroutine SomeSub
  19.     
  20.     write(*,*) "You have called SomeSub"
  21.     
  22.     return
  23.     end
  24.